Option Explicit
Sub A_Sample019()
    Dim myRng As Range
    Set myRng = Rows(1).Find(What:="*", After:=Range("A1") _
        , LookIn:=xlValues, SearchDirection:=xlPrevious)
    If myRng Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng.Address
    End If
End Sub